home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mymem1 / mygp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  5.1 KB  |  178 lines
  1. VERSION 2.00
  2. Begin Form MyGp 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Games Played"
  5.    ClientHeight    =   4635
  6.    ClientLeft      =   1215
  7.    ClientTop       =   1560
  8.    ClientWidth     =   6015
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   5040
  16.    Icon            =   0
  17.    Left            =   1155
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   4635
  23.    ScaleWidth      =   6015
  24.    Top             =   1215
  25.    Width           =   6135
  26.    Begin CommandButton PrintScoreCmd 
  27.       Caption         =   "Print Scores"
  28.       Height          =   375
  29.       Left            =   3240
  30.       TabIndex        =   3
  31.       Top             =   4200
  32.       Width           =   2655
  33.    End
  34.    Begin CommandButton ClearAllCmd 
  35.       Caption         =   "Clear All Scores"
  36.       Height          =   375
  37.       Left            =   120
  38.       TabIndex        =   2
  39.       Top             =   4200
  40.       Width           =   2655
  41.    End
  42.    Begin PictureBox PName 
  43.       FontBold        =   -1  'True
  44.       FontItalic      =   0   'False
  45.       FontName        =   "Courier"
  46.       FontSize        =   9.75
  47.       FontStrikethru  =   0   'False
  48.       FontUnderline   =   0   'False
  49.       Height          =   3615
  50.       Left            =   2520
  51.       ScaleHeight     =   3585
  52.       ScaleWidth      =   3345
  53.       TabIndex        =   9
  54.       TabStop         =   0   'False
  55.       Top             =   480
  56.       Width           =   3375
  57.    End
  58.    Begin PictureBox PScore 
  59.       FontBold        =   -1  'True
  60.       FontItalic      =   0   'False
  61.       FontName        =   "Courier"
  62.       FontSize        =   9.75
  63.       FontStrikethru  =   0   'False
  64.       FontUnderline   =   0   'False
  65.       Height          =   3615
  66.       Left            =   1440
  67.       ScaleHeight     =   3585
  68.       ScaleWidth      =   1065
  69.       TabIndex        =   8
  70.       TabStop         =   0   'False
  71.       Top             =   480
  72.       Width           =   1095
  73.    End
  74.    Begin PictureBox PGame 
  75.       FontBold        =   -1  'True
  76.       FontItalic      =   0   'False
  77.       FontName        =   "Courier"
  78.       FontSize        =   9.75
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       Height          =   3615
  82.       Left            =   120
  83.       ScaleHeight     =   3585
  84.       ScaleWidth      =   1305
  85.       TabIndex        =   7
  86.       TabStop         =   0   'False
  87.       Top             =   480
  88.       Width           =   1335
  89.    End
  90.    Begin CommandButton GPOK 
  91.       Caption         =   "OK"
  92.       Default         =   -1  'True
  93.       Height          =   375
  94.       Left            =   4680
  95.       TabIndex        =   0
  96.       Top             =   120
  97.       Width           =   1215
  98.    End
  99.    Begin CommandButton GPCancel 
  100.       Caption         =   "Cancel"
  101.       Height          =   375
  102.       Left            =   3360
  103.       TabIndex        =   1
  104.       Top             =   120
  105.       Width           =   1215
  106.    End
  107.    Begin Label Label1 
  108.       Caption         =   "Name"
  109.       Height          =   255
  110.       Index           =   2
  111.       Left            =   2520
  112.       TabIndex        =   6
  113.       Top             =   240
  114.       Width           =   735
  115.    End
  116.    Begin Label Label1 
  117.       Caption         =   "Score"
  118.       Height          =   255
  119.       Index           =   1
  120.       Left            =   1440
  121.       TabIndex        =   5
  122.       Top             =   240
  123.       Width           =   615
  124.    End
  125.    Begin Label Label1 
  126.       Caption         =   "Game"
  127.       Height          =   255
  128.       Index           =   0
  129.       Left            =   120
  130.       TabIndex        =   4
  131.       Top             =   240
  132.       Width           =   615
  133.    End
  134. Dim SetClearScores As Integer
  135. Sub ClearAllCmd_Click ()
  136.     SetClearScores = True
  137.     MyGp.PScore.Cls
  138.     MyGp.PName.Cls
  139.             
  140. End Sub
  141. Sub Form_Load ()
  142.     SetClearScores = False
  143. End Sub
  144. Sub GPCancel_Click ()
  145.     Unload MyGp
  146. End Sub
  147. Sub GPOK_Click ()
  148.     If SetClearScores = True Then
  149.         ClearAllScores
  150.     End If
  151.     Unload MyGp
  152. End Sub
  153. Sub PrintScoreCmd_Click ()
  154.     MyGp.MousePointer = HOURGLASS
  155.     Printer.Print
  156.     Printer.Print "Field Size";
  157.     Printer.Print Tab(15);
  158.     Printer.Print "Score";
  159.     Printer.Print Tab(25);
  160.     Printer.Print "Name"
  161.     Printer.Print
  162.     For I% = 0 To 5
  163.         For J% = 0 To 2
  164.             Printer.Print Str$((I% * 2) + 8) + " x" + Str$((J% * 2) + 6);
  165.             If ScoreArray(I%, J%) = NoScore Then
  166.                 Printer.Print
  167.             Else
  168.                 Printer.Print Tab(15);
  169.                 Printer.Print Str$(ScoreArray(I%, J%));
  170.                 Printer.Print Tab(25);
  171.                 Printer.Print " " + ScoreArrayName(I%, J%)
  172.             End If
  173.         Next J%
  174.     Next I%
  175.     Printer.EndDoc
  176.     MyGp.MousePointer = DEFAULT
  177. End Sub
  178.